#carregar bichos.rdata
load("bichos.rdata")

#listar os objetos desse workspace
ls()

#remover os objetos que comeam com 'temp'
rm(list = ls(pattern="^temp"))

#salvar com funo 'save'
save(anfibios, aves, mamiferos, file="bichos01.rdata")